"! "
UnitTest subclass: SmallIntTest [
<category: ''>
"! "
testAddition [
self assert: (42 + 43 = 85).
self assert: (-100 + 100 = 0).
self assert: (8191 + 1 = 8192).
self assert: (-100 + -300 = -400).
]

"! "
testEquality [
self assert: (1 = 1).
self assert: (1 == 1).
self assert: (1 = 1 asInteger).
self assertFalse: (1 == 1 asInteger).
]

]

"! "
MetaUnitTest subclass: MetaSmallIntTest [
<category: ''>
]

